home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / oh_towns / townsfos / edit.bas < prev    next >
BASIC Source File  |  1991-10-18  |  590b  |  29 lines
  1. 10000 '
  2. 10010 ' EDIT for TownsFOS
  3. 10020 '
  4. 10030 ' Filename "EDIT.BAS"
  5. 10040 '
  6. 10050 ' Last Update 1989. 5.19  Version 1.01
  7. 10060 '
  8. 10070 '
  9. 10080 DEFINT A-Z
  10. 10090 IF ARGC>1 THEN *PARA
  11. 10100 PRINT : PRINT "***** F-BASIC386 Editor *****"
  12. 10110 PRINT
  13. 10120 INPUT "         Source Filename ? ",SFL$
  14. 10130   IF SFL$="" THEN RETURN
  15. 10140 GOTO *MAIN
  16. 10150 '
  17. 10160 *PARA
  18. 10170   SFL$=ARGV$(1)
  19. 10180 '
  20. 10190 ' MAIN
  21. 10200 '
  22. 10210 *MAIN : ON ERROR GOTO *M_ERROR
  23. 10220 LOAD SFL$
  24. 10230 END
  25. 10240 '
  26. 10250 *M_ERROR
  27. 10260 S_ERR=ERR: IF S_ERR=63 THEN NEW
  28. 10270 RESUME *S_T_RETURN
  29.